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(54) PROGRAM CONVERSION SYSTEM 
(57)Abstract 

PROBLEM TO BE SOLVED: To provide a program conversion 
system for easily and surely converting a program sentence by 
an ISAM form to the program sentence by a relational data base 
language. 

SOLUTION: This system is provided with an instruction 
extraction part 1 1 for extracting the program sentence relating 
to access to the data base of the ISAM form from a conversion 
origin program 2, an automatic SQL sentence generation part 1 2 
for automatically generating an SQL sentence for defining a 
relational data base and a table, etc., for using data base 
definition information extracted from the program sentence 
extracted by the instruction extraction part 1 1 by applying it to a 
prepared routine sentence and an automatic program generation 
part 1 3 for completing the program sentence required for 
relational data base access by applying the SQL sentence 
generated by the automatic SQL sentence generation part 12 to 
the prepared routine sentence and automatically generating a 
program (post conversion program 3) for accessing the relational 
data base by SQL 
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[Sl**l] ^5lf^t7i7-b^7 7-<;i/$:f : -3"<- 

{ if £ 7 o -b a 7 7 •< ; u 7 0 iz * K £ b tz y' a if ? a £ 

BS £6 r - 9 *< - a 4 1" a fc & © y □ if 5> AX tc£& 
-f £ c i: k J; TIff,f-3"<- A&^ffl-T ■S^&tfcy 
o if 5 A £ ft ffc-f * 7* □ f =7 A Sjfe •> A f A K *f n T . 
Su Se Stft 56 7° a i*" 5 A © G. § I * 7 5» -fe * x - * 
^-^7 ^-tzAKHiglxfcya if^ AXfcJSfiff SXtt 

buEX» titrate* •jttibSftfc^iiifcA^&fcbUfcx 
- - AS^tit n & ^ A fli ft l fcSSX k s t it # s 
-kKJcoT&ffll-SsuEWf&x-^-T.. 7--7JU 

x - * e ibft t . 

BuE§^x-*^-A£«Xg»)£»&*ai;:«fc »J£/&$ 
*i fcM f& 7 s - * * - & ^ eb m ft U /c£S!X K £ 

T l± « <b d i: K J: -3 T fiu IS B3 ffi x - 3» * - * 7 7 ir 7. ic 

£«si^ 7° □ 9 5 a & g iiiftja-r * inffi r- ^ * - a 7* n 
i»**2] buem9&x-*^-*s«xs 

7' n df 5 at- « £4§£ »cpiS«ffl -T *JI l ©£Ik J X * * 
b. 

BuSeM^x-^^-Ts^n^^Aicia^^lSti. bu 

e jb i © nmx vzni& b & » 2 © gas: & wr * c t & 

*$« i: 1- 4 If** 1 Ett® 7° D if 7 A»> 7.x A . 

[St** 3] buEK^x-2^-*£^X 
a»±. suE^&7G7°n if 5 A^JRttSoKiSI 7 7 -Oi/i: 

BufSM^x-^^-^yD^^AAiiijftfig^gli. mf 

Eg 3 © sax ic#j& l tzm 4 0 & *-r s c t & 

k -T 4 SI ** 1 UWL(D 7° U 9 7 A»> 7sx A . 

[11**4] tfrKHffiy-^-^aian&jftf 

Si*. BUie^7C7°Di''7A^*-'C-7>3''A»C7i'1Z 

^ts-t tf-e # 4 jR«acD^ si 7 7 -r 

urn 5 ©ga* \ztti& b tern 6 ©sax & wr s c t & 

[21**5] SJEHfiR^-^^-^SISXSftftiS* 



^ S: JEfr-f 5 ^ & Z> 7" □ 7 A T- « 4 ®^ K Pfig 
HuKK^r-5^-7,7°nif7AS:g®iftfig#ati- lu 

es 7 ©sascic^ u 8 oi-^mic^mt 5CtJ 

1 1 4 II** 1 f ffio) •? a if 7 4£& •> a r A . 

[Sf**6] BuEH^T-3'^-7x7'Dd'' ; 7Ai:g»] 
ftfi5c#© b T o 5 ^ © CD *«6 ^ffl -f 4 
10 fe©$:*g^4gaiClig#aS:^-r4wkS:^i«i:1- 
•5 !»** 1 E«{ © 7* □ if 7 A ^ •> A x A . 

[!f**7] BuEH^x-5^-7vg»AeibftfiS# 
Stt. BuES^7c7'Dif5AZ)'miE^«l7C7*ai''7A3i' 

suEx-5f^ao'^TBtrE*7 7'r^$:iiS^$1i: 
4^9©^aS:$rWL. 

SuEM^x-3'^-A7*oi'-7AS:Sf!j^^Sli. bu 

tzw, 9 ©sax »c»jc b tz.% 1 0 © ismx % 3r -r 4 z t 

[If**8] miES8^x-^^-7vS^Xii!)^fi£^ 
ai*. 1«rEK*7c7*n A *'JR«a©J«7 7 ^-'[/©x 
-3» lC*t5^T^?| 7 7-<;L/$:#Bg-r'5^$:*-r4 7* 
n^7A-C-*4#^lcPfiS^ffl$^. SuEx-5tc»r5 

i©saxs:^u. 

BtEg€^x-3'^-7.7°ni'^AS:gl!)ft^#a»i. mi 

i:S:«»fc-r4«f*fllEtt07"n^ i 5A*lfti/^r . 

30 A. 

[0 0 0 1] 

H8W®«-r4a*^»] c©^Bgi±. ttlB^S^Ax 

A±IC^H$ tl/hx- 3» ^-7x^© 7 7 iz 7. S: fe* 
0 7°n if 5 A ©^^*. $flZ I S AM (Indexed Sequ 
ential Access Method) Jg^©x — ^ — A&^fflt'.S 
7° n i?" 7 A & 19 ffi X - 9 ^ - 7. & ffl f 4 7" O i? - v A IZ 
Wfc? i> tC iS 17 4 x- r9 ^ - 7. 7 7 HZ 7xg|5^ ©X©^ 

40 [0 0 0 2] 

[ffi*ffla«] 1f$S^S'>7xxAT'^t7$n-5 7*a^7 
AIC»±. i/7sxArtlC^||$ixfex-3"<-A^©7 7 
•fe 7x S: 7 fc «?) © JESX ^3lt7X^© 7* O i>" 5 AX #il 
#EiB*iiT*fU. 7'u^7AHt7fi^^l±. i©||t7X 

©77-fe7.^lcSov^T^*/j:iO ! a^(?-Ct7fcti 
-5. 

[0 0 0 3] ^7vxA©fiJffl^©gc||^(!|i 
-3-C. ti$fi&«->7.xA_hlc18!g3*i7iI SAMJg^© 
x-5^-7x (WT. CI S AMx-3"<-7vJ ) 
50 m%T - 9 ^-^<ntyfi$r'fs ISAMx-^ 
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^a^^ArtcDi s AM^5*Uc«fc&7'n?^A:fcftB8£6 
7-- _ 5 k - ^ © -f a 9 7 A % fc*r fc K § 2 HI - # £ 

[0004] U^L. CWJ^fcWett. ISAMt 

gg^- * K-A©pg%©*niStf : F+#'C'£> & ©^ 
?f ttffi © f6T & *B * - H l*#ft K * * iE W S ® ftT 

UT. 1f§iBB6 3- 1 1 5 3 l^SMKtoniZtot- r ^ 

ndT5Aie*iaa**j m 2 3 »±. ;:©&#© 

*> h ic 7"o ^7 fef? -3 t>©T-£> -5 . 
1 [0 0 0 5] -|S^/j:7-a^5A^*Si:b 
T. *SBB3pl-3 1 2 3 3-^4i«»cH3SaaT.fc r^'a?" 

t-aj 02411 r^ai)7iv^fSSl^ : 

ifcttftAOflrftHtt fc*^ nTSE*** ft±tf * *» © "C 

[0 0 0 6] *fc, SQLSfta*»4ftCBt4tiffl 

hUT. f&WV-Z- 1 8 2 9 3 2#iif8^H^$iT.fc 

»«tt»»^ ft A * L T x - ^l/Sfc K * "C S Q 

j [0 0 0 7] 

USE bio 1: "f 4SBSI] 1/ b * & - WW 3 ? 

ARiftfta^j -ci±- aaix-fc'^ic^ab. *© 

^feK-tn^JC^iW^n^^ASrSKrot:'. i s 

AM7 r -3"<-xk:w-r4«!a. mart-* 

©KttLTlt. «*®!l3B©SE»©*'Ctt. 

[0 0 0 8] *fe. «H¥l-3 1 2 3 3#&«£wS 
ttfc&Jfc© ry a ^7i vdfSSi tf *S 
B3fel/lctt»*J/^rAj "Cli. -»®l»lC#(t^ 

t5^&l«otl>4CDt'. #BJip6 3-l 1 1 5 3 7 

A M k. §8 r — 2 ^ - * ^ <- ^ ^"tS K #H * * ® 
K it. ictt/ft-f a c I: #T * i: v ^ RH # * 
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[0 0 0 9] MIC »Bisp3-l8 2fl 3 2*4i«»C7n 
3? ft L tilffif - 2 * - * 7 2 -b ^ ft i W * ? * S 

QLfeSftaA/^n^AiftjjtrscfcSBttt ^ 
■easy. ^ndr^Afesift-rsffla-ett. sQLi^fiSt 

i: V x ? K o t> T © *f 'J B -T 4 - * # *T 16 4: * 7 "C ^ 
4. SQLXatt4«fcHbTli. tt»**^lSS-i"4 
fcv^RftttoTisy. SQLXTee*i:*4flM8S: 

[0 0 10] #JBWi^®* 3 fcHH ft 

ii^nif^ASc&SftWtttaib. ^fcBflfifix-* 
y<_ A SJS»cJ:S^n5f7AXlc«*^*^«*^** 
-f 4 c i: ^T' 1 4 ^ a ^ 5 A^-> A -& d 

[0 0 11] 

y 7 ^;i/7i7-feAVcHiSbfc7°Di>"7AS:S:. BB^x- 

Jj^-^W-z^-rAKli-a-CflfaSftiHa^-^^ 
6fc&®7ndf5A*VCg»-r*£fcKJ: 

■a T H fli T - 5 ^ - * ft & ffl ^" * S 7° □ S*" V A & ^ 
fi£-r4 7 0 n^' ; 5A^Sl , >^xAlcfcV'>T. ti)S5^7t7" 
30 n^5AO^^e,^ll^^75'-bA7 r - ; 5'^-^7i7-fe 

a izmm u a if 7 a a ft ttaiT 4^aai#© t bu 
* ^-^ttmfEft^*ffi^^^^ lc ^ Tl±s?)S c 

■CBulBBflfilr-^^-^^-b^Kig^T-ndr^Aft 
40 gtt4<*f*H«r-* ^r-^aif^AXitt*^ 

[0 0 12] ^2©|gH5lC^^^Di , '^^^ i/ ^^ A 
It ^lO^BSlcfci-'T. HuI3M^r-i"<-^^ 
eift4^B»*. HHffi«*7ti^° 5T5 A*«*ttS!©l«7 
7 >r ;i/ i: $ § I ft *#^> 0 WXk © 7 7 -f ;i/ 4: ft ^ffl^" * ® 
ffift«f47-n^7A-e*4»^Ki|»«ffiffl-r4»l© 
^^ft^L. HuMP^T-f ^-^T'a^^A^ift 

^^Sit. miiem i ©^s^icm« L fc« 2 ©^SA 

ft^-f^feWT'S^. 
50 [00 1 3] JB3®«l"SiCflfi4^n^7A«»S'^-rA 
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It. JglOfgBJ^cfcor. ItrSEHfiKx-* 
SK^^Slt. mlZW&jizfu 9 =? A#£gS!©3$;5l 

(0 0 14J g4©^Kl5yn^7AH5J/^fA 

ttiztt-DomvLkc!)? 7 4 jut zmmtz&mzm-? 

*>©T-£>&. 

[0 0 15] m50%HgtcffisyD^5A^->^xA 

7 -f ;ut M5\Zft-D&£\y 7 -r ;i/ ii&^ffiu. «olSt 
Srteaj L 5^ AifcCHfr&Stcgo'oTBufg 

att ^ 7 -r ju £ jsssi t z mm & n+ & ^ □ ? 5 a -c $> & 

#^-^^nif5AXg»4ja#«»i, itufesg 7 ©^ 

[0 0 16] JBSOfgligtcffii^n^^AXifti/^T-A 
I*. »l©»Hfc*»Hvc. BufeM^x-^^-^^n^ 

& «b -T a * © * ss*- a ^nto 

[0 0 17] »7©»9Hcfl54^n2f5A«lft^^f-A 

mJS2^7c7- D ^5A^iiB5^jc^ 
? 7 -f A/ fe#fa7n if7ATS^ 

[0 0 18] £8©S«Kffi&;fD£'7A£&£'.xr A 
[0 0 19] 
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#ia«i:*is©»a»c-3i>TKwr4. $3y&©^ 

tc if fl§ pj fg -c £ -5 C t J i 1 0 £ T v * . 

[0020] aasffl»jBi. an*. 

T'fe-5o *i/^fA»±. ff^S^Xr A©— gpxii-e 
©^*fe*«r*. BlKjftLfc#i'*T-Al*. ffc^ft 

10 saaii 3i^tt-fa{fyAm»m ot. A7j&m& 

UT'MS^. ^n^ASHfcfcl 01*. m#7b7 

TJtb. ^&&7°n^7A3K^&r££nd7°D:7-=7 
A^glfiia & ft p d £ iZ & Z> . 

[0021] ^aajgpnii. A«iaj#afcuri8tf 

€>4v ^TC^Qf 5A2©tfi^P ) ^§|fTf^7 ; j7-t r ^fr 
*. SQLAgf&4figa5l 2 It. Mmr-H^-XTZm 

20 s:gg)^#gi:LTSsye.n. ^^ttajsn icjuj 

^-A^atS: (SQLA) T-D^A 
gft^fiKSPl 311. Hif-^^-^aiC^ASgS 
±fiR#afcLTSW6n. SQL3tgI()^figgl5l 2tc«k 

30 «:7?tAt47-D^A (M7-Djf 7 A3) & g 

[0 0 2 2] ^JSO^tcfcu-cii. ^rc^nif^ 
A24. ISAM^y-f^&f-i'^-^tLTtffit 
4*5tffii4L. AO. mftWVM? 7 4 )V (f87 7 

b. *8?7^;i/ "RUISEKI" iztthZT-fiizm-D 
\>^rffifi,^X3i-? 7 >(}V "SHOMAS" &#St5COB 
OL7'D2'5Aff C0B0L7*D^7Affl 

40 ^ifttfic 1/3- K (r-3i) R. »S;^-tn6»C^**i 

WbTfet. READ, MOVE^©^^^C0Ht73ltT' 

fe. #^g©^$T'li. -r'-5^-^(^©x-3Jiggic 

0 (Remote Data Object) T'7iit7, 
"f-SVisual Basic(D7"D^7Att5. 
50 [0 0 2 3] **«©#«Kfc'i*T#]»WfcC4:tt. ^ 
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gg^-f- jr * - 7. CD -f D 7 AX ft g ft***" 4 «k ? \Z 
Ufectt^i. cftKi'U. ISAM»iKJ:5^a 
£>'-5 AfcKH&r — -7n©:7"d Alcg^KfroSt 
Hlc^&-f 4c£tf-C'£4. 

[0 0 2 4] #^&©;MU;:fctf4®)mco^ 
T. 0 2 l/fe7 D-f t - h tffli^KfltS. 

[0 0 2 5] *r-y7l 0 0K*iv*-C. **J*ai»l 1 
l±. SE»7C^ , ndf9A2^e>r-3' (FILE 

CONTROL, SELECT^). 57^fW?t^ (OPEN.REA 
D.HOVE*) . £B»tt** (MOVE) fcif ®7*D d*"5 A* 
ft#a£fj-r4. @3l:StCOBOL07>r-h 
* Vhtf&£fc£*t4. w©ffiiBt±- WCOBO 

4 if f*3K *» e> £> 4 ft ffl v> -5 - £ * * • 
[0 0 2 6] Xf'y^llOKfiV^. SQLJgflS 

;u*ft^frft^-7;uiC#JC2«fcS QL:fcfc 

"T4. cm*. 57-f^*tr-^*C FD^ftSELE 

CTiCOD 7 ^ K Iw. ft ATJ'^ * ~* ^/S^-tt 

*itT?*j*-e#4. #*»©»»£ *»'tt4 so Lifcg 
tt^J«»12tt. KJftS^nif5A2*»*a7 7-f^fc 
fg5lfti$-D0fflJW±O7T>f;i/ (7A^-7 7^JH i: 
ft IB 4» tt ft 4 7* n df 5 At? * 4 K Pfi^& 

7°n2"7A2^€ J JS{iiL-f-T : -3'^-^^ttfS. 1"* 

4 ^ _ 5 © * !H|! ft i «D *SS* ®"F»»^ K li «) ii tf fc' tf 
T?H«r (SQL*) &£jft-T4c:i: 
Vtf-e*4. 

[0 0 2 7] T.Ti-^12 0i:fePt. ^Dd^Agf!) 
£/&£pi3t±. SQL^iiil^SPl 2#4*UfeSQ 
LjClZ&^\,>XmW&7a f5 A 3 i: L-T*#&**i.4 
SQLjt&IM^tS. *nife®BWX'\t. RUISEKI 
x-^UA'^Sa^f-fgS, I D feS-fS-IDA'SSfiV^ 

5 - ft # JBf 4 * - 4 4 . *3l%®fffi K *f tt 4 7° n 
df5 A 1 3l±. SQLXeib4*Sl 2*'J# 
o Jg 1 CD SS^cWiS; b fc H 5 t w L fcJB 2 ffl ^S* ft 
f Itv^. ^©^Slifcti. iHfcft7n07A30* 

(«!«*) 1:45. SQL*ift4fift»l 2tf£$Lfc 
S Q L*ft0 5 icSL-fcJB 2 CDJgfiAO.TttaM^l** 
j&tf £tf-CgEiMfc7*n df 7 A 3 ft g!S£/i£-r 4 c £ tf-e 
*4. 

[0 0 2 8] Jgll±fiDJ:^K:. *3MS©J&ffiK*Mi\ £ 
»7G^nd^A2#JM*77^ufc85lfc8oOffl^ 
697^5-7T-f ;i/t ftttffl-f 4»fflft^-r4ynif5 
A-e*4»-&K:PfiSttffl-r4B4 KwUfeffl 
ft^«)ffl*L.T*i< J:5K:L.fc©"C. SftTC^a^^A 
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2*61*. JRa7 7 4;i/&tf-***--:7 7-OI/K:Hl"4 

S7 7^;i/ft i U3-K-f-3St*a*. 1f£©«Bft* 
- fc b T v * 5 - 7 7 W ;i/ ft #J5W 4 J: 5 fcfcii ft * 

u fcsg 2 flD^fi* ft^&fflS b r a < <k ? k. l 

T-. H^r-3"<-^ft7d ; ^^4-7'af ^A^ffll 

it ft S<B »c Arjflg* K'a o z. t tf-c s 4 . 

[0 0 2 9] $SS©J&JB2. **ttO»»K*»'' 1 "C»*- 
att7C^n5f7A2ft. ISAM77-(^5:f-M- 
10 7>i:LT^fflf 4J:e)lCfeiib. JR«l!ffl*5l7 
T-f (197 7^^) fc*5l&#O0fflfiU:©^** 
-7 7-f;UfcftftfflL.. *-WKV-h*"4$«fc'&» 
t5f»77^Jl/ "RUISEKI" H$*ix4x-^ IC*0 

0- ClSfi-?**-?*^!' "SHOMAS" ft#.^-T4COB 

[0 0 3 0] **JS0»«K«»4tt^fcOV^ 
T. 06»CwL.fc7n-f-+-hftffli^TK«-r«. 
[0 0 3 1] 7,fy7"2 0 0i:eut. #^«JBSS11 
l±. Sg*jti^ , adf5A2^6T r -*U3-KS**®5 r 
20 Qif^ASCftttaJl"*. -©SO^li. ±tm&<D&&i 
fe'W 5Afi/7"1001: ra U4©T?»«B»**«-r 4 . 
[0 0 3 2] ^fy7 , 2 10Ct.VT. SQLJIM 
jft»12li. ±j£Lfc*a7 7-f;i/&tf^*3'-7"7-<' 
^l/tft-fftft-r-^HC^JtS-ttfeS Q L#fe 

1- 5. chit. 77/^iT-^i:- FD'tD ftSELE 
CTlfc© 7 -f-^KlC. * — ftAS^7>— 3«lw^j£$-tir 
5 c i: « 4 . fitfiSQLilM 
fi£g)5 1 2 1±. ^^7C7"D df5 A 2 77-f 

30 (7^-77^^) i:ft^ffl1-5^.ft^-r5 7°o^ 

j^fbTPi. »l©Si!*K:ORDE 
R BY^TiM^OStiTfeU. «»7C7 , ad r 5A2^6i*ai 

7,^-7 7^;us.U !; i-*^^*^47 : "-^ ©^fSr>. 
li^^7 7 >f;l/© :J F-'C*5RUIID©jiHSi^^t' , *7 

(SQLi) ft^1"4Ct A>T'#4. 
[0 0 3 3] ^■r^7*2 2 0»Cfiv>-C. ^Dd^Agft 
40 4fi£g|513»i. SQL^Slb^ai 2 7i>4fi£bfeSQ 
L JX36-3nTg»«7*n 5* 7 A 3 fc LT*^ii*n5 

soLift. »3©«sxt»ff^fe*4©*saicftffl 

"RUISEKI" r--?>fr&*JSSftfclBfi ID "?** " S 
-ID" 7i'^p D aV^5-ft#m-r4=if-t'i:5. SJfttfc 

^©Visual Basic©7"Di , '7A©rt8l±, 

[0 0 3 4] W±©i5vc. *H^©M^J;*vli. £ 
^rcT'D if 5 A 2 tfXa&affiSI 7 yjKtmzizft-j 
50 OfflW±©"?^*-7 7-f^l/l:S!fifflL.. 



g 

a v & z> tg<£ \,z m%mm ? & m i iz m l tsi 3 cd^sx 

*>. »3 0£ffl;fc»c*HOl«*dlL*Jg3rr*ORDER BY 
ft 7 □ 9 3 A ^ 0) m& £ g§ ^1-3 K e» C #T' * 

[0035] mm<DBm3. *mmwn\z&^x\t. 

W^7X.7°aif=7 A2£. I S AM77>f^f-3"<- 

a?7-f;i/) t*5l4»-oofljet±<D-7^-7 7 -f>i/ 

Sr&flJl,. JRffi7 7-f^ "RUISEKI" K^SftS-r-* 
tC&O'l^TfSfaa v'-Ai? - 7 7 -Ol/ "SHOMAS" £#Brf £ 

[0 0 3 6] #ac. **JS©»JKJcft*»J4Iftf^jc-3^ 

[0 0 3 7] ^r-y^S 0 OlC*f^T. #<ttttfjgp 1 1 
*±- W&TC7°ni?=7U2frl> : r — 9 fa— K^S^O^ 

Cfcl^Af 0 0^l5lL/^©T'^tt#Bg-r^. 

[00 38] Xfv7"3 1 OKfcOT. SQL;fcggj£ 
$S512li. iiSlfeia??^^?^:?-^?^ 
JUOxZtit t— ^K^JC^-frfc S Q Lit & itt^jA 
■fS. C1#V(±. ^^l^fc-^-TVUi&lC. FD-&J&SELE 

fig^l2l±. ^it:7'n^5A2^^-T'7>3''A^T 

7-01/) fc*ttB-r6$«fctf-r4:7nif5A-e*<&» 
£ t -T £ EI 9 35 l fell 5 ffl£8fcfc i^Ltn 
4. C©SS!*kH±. IBlOfcffifcKWHERE^fcttinL 
TM^T-f^Jf-f^i "RUIID" &^-gP7S>6#x. 

»*ai£tf£ttT?Hft 7 r -3r'<--.*£BUc (SQLS) £ 

[00 3 9] Xfy^3 2 OKJSHT. 7d2"7Agf!) 
£«&»13H:. SQL*aft4j«fiiJl 2*^J«l/fcSQ 
L Afcat-^nTKifta^n if 3 A 3 LT§$&£ft.5 
SOL**, »5®£3l;fcCtfj6LfcJB6«D£ffi!:fcfcJa 

SB»»&-£*.6aT.fc*-Kg:Jl,>T "RUISEKI" T-y'jU 
£#fHU. fOBp° n IDT'i65 "S-ID" jg n « B v** - 
S: #«r H 1 0 icSEjft L fe<S*OVisu»l 

^BasicCD7'o^5A (»6©SS!A) fc^-f. Ell OK 
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[0 0 4 0] M±0)JloIZ. #X«®»«icJ:fttf. IE 

6 7C 7 0 ^ 7 A 2 # * - T- 7 > $C A IZ 7 0 -fe A 1" £ c t 
^r-$^.^aa j O^?|7 7'r J 'Ui:^5IS:^-D0fflW±O 

- y 7 4»/k zmm-rzzfn if j Av&zmGiz 

m-£&m ? & ei 9 k. m l> £3? 5 cd^sb: & -?«?> l r 

7 7 -r ;i/ai/7A^-7 7 -f ^fcB8-r*««©aaj0*. 

Jeff* l/a-K S^gi*-i:U7 
■^*-3'7-f-;uS:*fiRr*»*OSE»aya^'5A'\0 
**S:S«*»-35g«k:tf5c:fc*«-e**. 

[004 1] ^SSO^®.4 . **J6®»«tfev^TI*. 
^^7C^"n if -5A2 I SAM^y-fyU^f-J^- 
*tLX&m-fZ£?izt&i£L. 7>vo. ^aScDJl7 7 
-fyi/ (*«7 7-f;i/) tm?\&&-Dmtt7 7 4JU£&& 
flit. *W**S:IBi*Lfc^nir5AA03lfflS*»c* 

7'nir5Ai:^-S. J:U**tt»ctt. 7-ryu "RU 

ISEKI" ^e>^±ffl "URIAGE" iiMoa^ t<D^tf7 7 
-«/ "SHUUKEI" <D^tttcSLatr^o5r5A"C**. 

[004 2] ^JC. *M60»*C*f^*Blftf3^ 
T. HI lK^Ufe7D-^-v-hS:fflv>T|ftBS-r-5. 

[0 04 3] ^fy7 p 4 0 0t:^T. ^ttfbglSl 1 
l±. ^l^tE^O ^"5A 2 A^x — 31 — K^iSfOT" 
'n^ASittiUti. «jLtf. Ell 2lc^1"COBO 

10 m<OW1&l K*>'l?*Ax->7°l 0 0 fclHjD&CD-Cf&SMi 

[0 0 4 4] -,5" 4 1 0 tCfc'^T. SQL3c&W}£. 

^SPi2i±. ±ifiLfcjmi7 7-f;uat/*ft7 7-(';i/-t 

-5. ZtHt. 7 7 ■< )l>2,£r- — 7'Jl>2,iz. FD^i SELECT 

§31 2tt. X»5b7'a!r?i i 2tfi3lt9ma>mZ\7 7<(Ji> 
(&m77>()W) tm5\£ftr)7 7>()\; (*ft7r-f 

1" 4 y □ if 7 AT-& 2 »^HKSttfflf -5 El 1 3 K5t L 

DATE*fflSET^Jk:*,'^T*-feAA-'<5^-* t^ffi* 

* © t *s gp 1 1 a & «<• fe* » T- m a r - ^ ^ - a ^ 

(SQLi) ZZttfT'ZZ. 

[0045] ^fy7"4 2 0l;fenT, ^'□i'' ; 7Aif& 
±J&gi513l±. SQL*g»4*fi|Jl 2#<E*SLfcSQ 
L Atcil^PTSIfta^D ^7 A 3 £ LT»ti£ gifts 



(7) 
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"ruiseki" x-y^^ffiic^Bab. -trossaiDT'* 

<b "S-ID" ic£$-f £ "SHUUKEI" T-TXD'ttO "GOU 
KEI" 7-f-;i/K43E«f1"4. B14fcgifc0fc*S*fflV 
isual BasicCO^Di^A (*8©*S!X) fc^*. 0 
1 4KwUfcTtt»KSQL:*att4&»l 2*'«U 

[0 0 4 6] JfiLhCDJoK.. #|gffi©J&J8K<ktU*. ^ 

b fe ^ n 5f 5 A* ©*t5 IS* v ^ * W 5 ^ -f 

* &^ft7 7^;iHc£L&t/fcv^;^.©^&&? r °?' 20 
7 A /\ CD £ft t g« *'"3lt* K*T ? - * * • 

[0 0 4 7] Xft0»&tt5 • ±E**SSO»«CfcV^T 

[0 0 4 8] *mtk<D&mr'\±. ±8E*lSO»ttl~4 

» tt 4 ^tt-eatt-e * * ? k ^ fc c * *= *** t ^ * * 30 

[0 0 4 9] ■$mt&®BMK&VZ®ft^^ 
X. 01 5liw0fc7n— ?-ir-h*:fflv>TttB^-f 4. 

[0 0 5 0] AJMi3f»lt±. i/^TAxy>-7i:± 
U 2 ft fcg»7C 7 n 5 A 2 ft £ * * 

4 0) . -TUto*,. ^«E>ffl«LTV^4f9ft*'©^aX& 

Ut^510~540) «Drt8l*. ±K#*«©» 
ffiUCfc^Ttfc^bfcGDT'. *0>fcS©SMllll*«>W*. 
[0 0 5 1] J-Xh©£?K. *£DS®»»K*ftK. £ 
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^oa«"CS4i:>^««S:l*-6. *>^>- 7ndf5A*E 
JfcT»Jllfc»tt©«SH £ft*T * c i: "PS 4. 
[005 2] * fc\ ±!51ft'E'C't±. XftOJ&ffi 1 - 4 X 

t&w u 5 ^ firft t stRf s * ? k i> fc tfi. {& 
[005 3] mmaBB6. ^-cit. 

7 7 -f JU &#jrT 4JBJK 1" 4 C O B O 
f77-f;i/ "RUISEKI" *67^J-77-f* "SHOMA 

[0 0 5 4] fcfc. ^^^lUcfcttSt&flH^^ 

[0 0 5 5] ^T7^6 0 0i:fcVt. <SHH*tti&Pl 1 
l£. ^7t;7'oi*"5A2^e>T : -3' L/^-K^^©^ 

nd»7A*&J*tli1"4. ±K3WS©^«1 
K.i3H&XT-yfl 0 0t[5]bT'$>»J. B3K5iUfc«l 

[0 0 5 6] Ax>7°6 1 OlCfe^T. SQLlfcgDjdfe 
fifcgpi 21*. ±ilfeia7 7-f^ "RUISEKI" 
A5 ,_ 77 ^yi/ "SHOMAS" -tn^^f-^KM^ 
■frfc "RUISEKI" f— y^Ufc "SHOMAS" f— ^fcfeH 
flfcifUfcCD jg^ffliS & -ttf t^HRffl ® S Q L :£ &£.J&-f 3 . 
**MSO»*^*fW*SQL*aft4JaSS12tt. K& 
jt^nd' , 5A2*»3Raa!fl!)«7 7-f ^ (jR«7 r-f*) 

4 7odT5AT?*4»£VCK£fcffl-rSS9©£S*& 



^U"CV>-5. CO<ke)^^5T;^Dd , '7A2T'S.4#1 
ICC0D117^^U fcSSbt ft B v ^4 - h i y . ft ft 
SOli7 7-<>'Ui:^§IS:^^^^- 7 7'f^fe#.^b 

T^2l#tf4^T-fe4i:v^e)m^^e>. "RUISEKI" 
^-^;1/©5IJ "S-ID" fr£ "SHOMAS" r-^O50 "SH 
OID" fc«ji#W-C01 7iCwl/fc^SUCOTttS4>K 

[0 0 5 7] W'^B 2 0lC«v^T. 7°n2'7AgS) 
ftj«»13tt. SQLii»£j*»l 2^fiSUfcSQ 
L^lcS^'v^T^^ 7*0^7 A3 L/T§tji*ft4 
SQLiS:. »9©SiS*KWJCLfc»10©SS!SS: 
m^ZZtK£-3Xm£.l&?Z- 01 8 Kit. JB10 

^C@®)4fi5cgi51 2^jabfcSQLAS:lt»iitrci:K: 
[0 0 5 8] J3l±®J:3K. *Hlififfl»»tcJ:ix«. SE 
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r m § 1 7 7 << jo & # m. ? -s mm & m ? * •? □ ^ ? a t- & 

»9©£S!*k:#iSUfc«»a:/Dir5A 

a 7 7 -r v * 9 - 7 7 -r )i> & &m~t -sas^ »c -o n 

[0 0 5 9J ^JS0^)i7. #Jli£©rMUCfcv>-0±. 

S-3'^T^5I 7 7 JUZ&m.-? S^lSrft £ C O B o 

»^7^;i/ "RUISEKI" frt>^7.5>-? 7 4)l> "SHOMA 

&3 S: # t.' S Q L ifc & g ft£f& L T fc: jl - "RUISEKI_SH 
OMAS" £ U TS^-T 5 £ i: * ttflft L T V . 
[0 0 6 0] #uc. *nsg©^.tcfcnts»i^tcoo 

[0 0 6 1] Afyy7 0 0ttVT. WttflJftll 

KSW5Af y^l OOfclRlt-eSy, @3K^bfciO! 

[0 0 6 2] ^ry^7 10i;Jiot. SQLigl^ 
f&SPl 2t±. ±j&[,tz&9t7 7 4 Jit "RUISEKI" 

*9-7 7 4 "shomas" -tJvfa-t&r— 

ttfc "RUISEKI" f— "SHOMAS" x-TVl/fc fc» 

fl»*W©te^iaaife^frifa- "ruiseki.shomas" 
fflfflSQL*iitt*js-f4. tfc was 

QLSceft^jftaJl 214. je»7B^ndr5A2A'JR«a! 
0JJ17 7-OU 7 4 JV) COx-rftcSo^T^?! 

7 7 -r;i/fe#Ri-r4»«ife^-r<b ?°n ^5 at-*^ 

Cite J; »J. f§77>f;i/flCf-3!i:S^itIg7 
7 Jl/kVA*-7 7 4)Uk *WT&miX tfa-S g®J 
£lSfS. -f j|SaS!CDMl7 7-f;i/4:JRS|fei#-3 
T A 5 - 7 7 ^ ;i/ & #J8 U T 19 jg# -5 T' h £ i: l > 
O tffffi A»6>. "RUISEKI" t— 7Vl/GD?!l "S-ID" "S 
HOMAS" T--7)\jom "SHOID" BB*f*lTT0 2 0 K.m 

(SQL*) otfa-s*s^sa»4ia-r4 
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[006 3] JE»C. SQL£ai&£/&gf51 2li. Afy 

VI 2 0icfcnr. 02 lkiSLfeSfj. io$SA0T 
&S5#k: l±tf> iiti-Tc itr- 1' j. -ruiseki.shomas £ %m? 

SSQLi© t'a - #JH»» fe g Set T' $ 

"5. 

[0064] 7,7-y-n 3 OlCfcnT. 7Di/7Aiil 
£fi£giJ13li. SQL*g»4j«a51 2**«±JsRUfcSQ 

SQL* fc. mi 10SS*t»fl?Lfc»l 2©gS* 
10 «:fl§l»$CfcKJ:-3Taft3Eja-r4. 022KI*. Jgl 
2©j£S!:*jWKS*vCisy. C0j£g*0T«»KSQ 

(Ck-sT "RUISEKI.SHOMAS" t'o. — *6ISttTi#St 
aS&fft ^ □ i> -7 A 3 & i S z i: A'T' t & . 

[0 0 6 5] Jtt±0J:5K. *Safi©»«!»cJ:ft«. §g 
(Rx-* ^-A & 7 0 -tz A-T S^^7°D A 3 'vCD 
& A>oSI|| JC ^ P Z i: A« 7? # -5 7c W "P < . 

^at ^ 7 >r ;i/7)» 6 ^? 9 - y 7 ■< >v $: #.^-r -s ^ -d 

^T. Kffix-i"<-Affl4!g^S$:#tj-SQL5:$:g 

ttfifi© J: v n^7A3&gft±*t5ri:tfT' 
[0 0 6 6] 

- A^tf ffi «r ^Affi & L ^ T It eb Z z. t IZ 

30 ^fig-r^i-ptCL7c©T-. -eC^D ^'7 A^^iQiS&§ 

[0 0 6 7] ^7C^n^7A7)>^aS!©Jii7 7 
-f J^tm3\ *i¥fr> 0fflJ^±CD 7 7 -f Sftffltiil 

S!*S:^AS«LT*f < <k ^ >C Ufc©-C-. Safc5£7n y 
5A*6tt. 7>f>'UicK-rstf$S©ttai©*lc 

*6 1> t-W&Wi. •? □ ^* => A «DS ic z>m 2 0£SW: & ^ a 

[0 0 6 8] «*7C^ndf5A«!JRaa!OJ|l5|7 
7-f;i/t3RS|fc#-3 0flJa±O7 7-f^i/i:fcttffl-f 4Jg 

5>"5A*»6li. ±K*7 7-f;i/KBfi"4««©ttai©* 
^.L/fc^#l^^ni;"7A0Stc^S^4©^M*$:^ 
0 ^■fe^-T4^ , n5»"5A^0a;iftS:S«»cAo**tC?f^ 
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(0 0 6 9J St.. g&^O^Atf^-T'^V^'A 
H 7 ? -fe Z> CI t A'T' t * 8«S!©9?S 51 7 7 s£ 
Sl&*#0 0<@J-;JLk© 7 7 4 Mb J:Sfflt5fIS:=lt5 

tf«k<. fflft-e**. »5©SSWcK#J&l/fc« 
jfcfft:/uif7A©*K&a!B6©£ig*«:*«>IS*l*"C 

[0 0 7 0] ^Kl^'ai''vA^a^©ll7 7 

I5a?bfc7'a ^7 A!fc©^7*S*K*-3^"C*ft:7 7 >f 
^ S: 3€*fr -5 ^ a ^' ^ A T- * ic Pfi^ffi ffl-T S S 7 

a?7A*?ili. ±S2#7 7-<^lc§i1-^)tt$S®ttai© 

b fcSHft»^ □ 2' 7 A ©g <c £ |g 8 ©3gS!:$C 5: 20 
7 S> -f o ^'7 A^<7)^SlS:^^^o5t^tw'<5 

[0 0 7 1] SEifctfitfc-f 4ae*7c:/ndf5A© 

*6i/^fAi>^ 7« ***#»-ea«-c a 4 J: e> k b 

£l©T'. ^7C7°n^" ; 5A^e)ttaj1"-5T : -i"<-^i9 
7° □ if v A CD i ^ * t' # £ i: t > o «f i« £ & •& - 

,[00 7 2] ^7t;7 0 a^7A^!i§yoli7 7 

^-f -5 t*d df5 AT'fc S»-&»cPJlSttffl-r *J6 9 ©SSI 
ife?6ffl«ltfi< «fcdl£Lfe©T!. g&TG^O?'? 

bfc^&&7°D:? ; 5A©gK>i&f?l OO^Ii&f A 
JBjSRLTfcX J:3k:Lfe©-C. HiT-5^-^.S:7i' 

istfT?**. Sfc. ^87 7-f;^^I?l^7^ 

>l/fc*JS-f 4»#K-3H"C. HGRx-* "<-■*©«£«! 
3 & * §9 $ t - 9 * - * £tt X & S ®) b r 7* a 9 

jifrf-'ttT'. *-S:}g^b-C^§l 7 7 -f ;u&#jrf 

Wfolk V a f =? A £ S SS£fi£-r £ - 1 #T? 1 5 . 
[0 0 7 3] ^gS7C^a^7A^aSWJiK7 7 

;i/Or-3> lcSo'v>T^5l 7 7 -f ;i/£#firf 50 
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If-fa^ad^A"!?***^. $"<-*©£ 
i-tUtSSt5Il lW^SIlfcfc^ifrfflSbTfcX 

Sfc. iilfflfIii:#lSLfcfM7'DJf7 
A©SlC^S^l 2<7J^S:$:^*fflSbTfc'< 
btODT-. Hir-3 ,/ <-Aj:7i't^t57"D^7A 

*-*%M% & t'i - fc b TSSt 4 «k e> 

IC b fcffl-C. t'i - fc»*i&tf - bT-7 

A 9 _ ^ 7 ^ ; 1/ # -T ^ jg.fl A*» 4n > f~ lb . 7"a^7A 

[®M<Dt£%.U s B Stty] 

[ill] *^BJitffiSya^5Agg#S'>^rAO— ^ 
ffi<DBM Zt* b fcjgBlSEailT'* 4 . 
[02] *tS©»«llC*)lt4tt^S:wbfc7n— f- 

IEI3] nigo^i 4^ttaiSPA'i*aibfe 

k#&jc7° D if 7 A©— 35$:^ b fcET'S) -5 . 

[®4] 3afi©»«lVC*?tf4SQLS:ett*Sc»© 
t0,t)X'$>i> S QLtlrSbfcit'SS. 

[05] |5«S©»»HwtJtf*^ , nir5ASI&^» 
© ft 75 T' 2> ^ ^ 7" □ if 7 A & 5t b tz M X' & Z> . 

[0 6] !OS©»tt2fc£tt4ttff«:5Rbfc7n--f- 
-V — ST'SS. 

[0 7] 3IJS©J(JJB2lCt?^4SQLj:ett4«a5© 
it 7J T' S> •& S Q L £ I: b 0 T* 4 . 

[08] £tt©JB»3Kfc'tt4ttf1s&5*Ufc7n-?- 

[09] UJS©»JB3t*?it4SQLi:Sfb4*S© 

[010] £tts©JtMR3icistta7ndf5A£tt±J& 
»©{b*-e*4SElfta^ , Di»"5AS:SLfcH-e*5. 
[011] HJg©^4lcfcHt4ffij^S:^;b7i7n- 

[012] **©»»4K:*. , tf4*^aaiS**44illL/ 
/h^^7c7"n^'7A©— gp&Sb/h0T'S>4. 
[013] !a8©#ffi4K:fc'tt*SQL*e»4»SW 

a)0,tlX'$) -5 S Q L S:^ b fc0T' -5 . 
[014] mmv>MW ; AK&V%7°ai>'y^&®>£.i& 

[015] *JS©»J»5HJ3W6llif¥t:wl/fc7n- 

[016] *«S©^jB6K:*?tf4lbffiS:wUfc7n- 

[017] HJg©^.6icfcW4SQLS:gib±fiS,^ 
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[018] %m.0)fc1&G\z&\-t&7u>f=?A&m£.i8. 

[019] nMO)j&&lK&\-t*mtt%:7K\utLZ>u- 

[02 0] ^te©^ffi7Kfctt*SQL;fcgg)£/&g|5 
©aj3T'fc*SQL;fc (t'i Zm\st-mX' 

[02 1] ^te0S$7K&tt£SQL:a:gg)£j&g|5 
[02 2] ^0^.7tCfett-5yD^7AgI!)^ 
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[0 2 3] Vt*V>-1z?u>f7Um%i®mj5^1 fcjjrf 

[024] t£#© ry a ^75 > ?mm&%mwki5& 
fe'^i/stsBattficttJHas/^f-Aj Sravr 7ay^7g-c' 
[025] r7'n??A±i&jDj&.} <7)W}ft3-M 

1 AAiaSgfl. 2 «»5c^oiT5A. 3 ^g&f£7 
10 Dif7A, 10 ^n^A^&gfl. 11 tf^JAffi 
Si5. 1 2 SQLXgft^jSflJ. 13 7nif5Ag» 



[01] 



[04] 



2»x 



10 : rDdr^A^gSgp 




/ D ? 7 U 



SELECT RUI ID, S-ID, DATA 
FROM RUISEKI 

S&£CT SHOID, TANKA 
FROM SHOMAS 
WHERE SHOID = ? 



[07] 



[09] 



[01 3] 



SELECT RUMP, S-ID, DATA SELECT RUMP, S-ID, DATA SELECT RUI ID, S-ID, URIAGE 



FROM RUISEKI 
ORDER BY RUI ID 



SELECT SHOID. TANKA 
FROM SHOMAS 
WHERE SHOID = ? 



FROM RUISEKI 
WHERE RUI ID = ? 



SELECT SHOID, TANKA 
FROM SHOMAS 
WHERE SHOID = ? 



FROM RUISEKI 

UPDATE SHUUKEI SET GOUKEI=GOUKE U ? 
WHERE SHOID = ? 



[01 7] 

SELEC T RUISEKI. RUI IP, RUI SEKI . S-ID, RUISEKI .DATA. SHOMAS. TANKA 

FROM RUISEKI, SHOMAS 

WHERE RUISEKI. S-ID = SHOMAS. SHOID 





(11) 


11 




5 t a 


r t 






^Hx7'd i. <0r - 7 v = - 






ti-f-'tL t r - r ^ U WJE- 3 S 






gfl)£f£l,& S Q L 5clcg-3UT 







5 100 



S 1 1 0 
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JD2 1] 
SELECT * 

FROM RUISEKISHOMAS 



End 



[015] 



S51 0 

_i 



J 



(s tart} 

l 



S500 



S520 
__i 



S 5 3 0 
_i 



3! 2fc O » BB 3 K 




N D ) 



(12) 
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[03] 

FILE COMTTOL. 

SELECT RUISEKI ASSIGN TO EXTERNAL RUISEKI 
ACCESS MODE SEQUENTIAL. 

SELECT SHOMAS ASSIGN TO EXTERNAL SHOMAS 
ORGANIZATION INDEXED 
ACCESS MODE RAND AM 
RECORD KEY IS SHOID. 



FILE SECTION. 
FD RUISEK!. 
01 RUIID 
01 S-ID 
01 DATA 



PIC 9(10). 
PIC 9(10). 
PIC XOOO). 



FD SHOMAS. 
01 SHOID 
01 TANKA 



PIC 9(10). 
PIC 9(10). 



OPEN INPUT RUISEK I. 
OPEN INPUT SHOMAS. 
READ RUISEKI. 
MOVE S-ID TO SHOID. 
READ SHOMAS. 
CLOSE RUISEKI . 
CLOSE SHOMAS. 



- [012].- 

FILE CONTROL. 
SELECT RUISEKI ASSIGN TO EXTERNAL RUISEKI 
ACCESS MODE SEQUENTIAL. 

SELECT SHUUKEI ASSIGN TO EXTERNAL SHUUKEI 
ORGANIZATION INDEXED 
ACCESS MODE RANDAM 
RECORD KEY IS SHOID. 



FILE SECTION. 
FD RUISEKI. 
01 RUIID 
01 S-ID 
01 URIAGE 
01 DATA 



PIC 9(10). 
PIC 9(10). 
PIC 9(10) 
PIC X(100). 



FD SHUUKEI. 

01 SHUUKEI-R 
03 SHOID 
03 GOUKEI 



PIC 9(10). 
PIC 9(10). 



OPEN INPUT RUISEKI. 
OPEN 1-0 SHUUKEI. 
READ RUISEKI , 
MOVE S-ID TO SHOID. 
READ SHUUKEI. 
ADD URIAGE TO GOUKEI 
REWRITE SHUUKEI-R 
CLOSE RUISEKI . 
CLOSE SHUUKEI. 



[02 0] 



CREATE VIEW RU I SEK I _SHOMAS AS 

SELECT RUISEKI .RUIID, RUI SEKI .S-ID, RUISEKI .DATA. SHOMAS. TANKA 

FROM RUISEKI, SHOMAS 

WHERE RUISEKI. S-ID = SHOMAS. SHOID 
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[05] 



Dim En As rdoEnvi ronment 

Dim Cn As rdoConnect ion. 

Dim PsR As rdoPreparedStatement 

Dim PsS As rdoPreparedStatement 

Dim RsR As rdoResultset 

Dim RsS As rdoResultset 



"7 * 2 - 7 r <VI/<DfBSfcf> 



Set En = rdoEnvi ronment s(0) 

Set Cn = En.OpenConnect ion( ?n '. rdDr iverNoPrompt, True, Connect Info) 
Set PsR = Cn.CreatePreparedStatement ("", . 

M SELECT RUMP, S-ID, DATA FROM RUISEKI ") 
Set RsR = PsR.OpenResul tset (rdOpenForwardOnly, rdConcurReadOnl y) 

* Z Z ft b 

Set PsS = Cn.CreatePreparedStatement ("". _ 

" SELECT SHOIP, TANKA FROM SHOMAS WHERE SHOID = ? ") 
Set RsS = PsS.OpenResul tset ( rdOpenForwardOnly, rdConcurReadOnl y) 

PsS. rdoParameters(l) = RsR(" S-ID ") 
RsS.Requer.y 

RsR. MoveNext ' >£<7)fTt-?5§ 



RsR. Close 
RsS. Close 
PsR. Close 
PsS. Close 
Cn. Close 
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[136] 



Start 



^SX/D ?7 J* COT- 9 l>0- 



S2 oo 



£*I7 7 'Ok 7^^-77 -OV-J- S2 10 
IffiA^Sr^f ORDER BY ^5rfitJD 



S2 2 0 



1: 



C 



Ed d 



[01 8] 



Dim En As' rdoEnvi ronment 
Dim Cn As rdoConnect i on, 
Dim RsR As rdoResul tset 
Dim PsR As rdoPreparedStateroent 

Set En = rdoEnvi ronment s(0) 

Set Cn = En.OpenConnection(' M, t rdDr iverNoPrompt, True, Connectlnfo) 

Set PsR = Cn.CreatePreparedStatement( ,,M , _ 

'SELECT RUISEKI.RU I I D, RUISEKI. S-ID, RUISEKI .DATA. SHOMAS. TANKA" 
'FROM RUISEKI, STOMAS" & _ *~ 
'WHERE RU1SEKI.S-1D = SHOMAS. SHOID" ) 

Set RsR = PsR. OpenResui tset (rdOpenForwardOnly, rdConcurReadOnl y) 



RsR, MoveNex t ' #0) ffl £ 

RsR. Close 
PsR. Close 
Cn. Close 
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Start 




5 3 0 0 



S3 1 0 



,S 3 2 0 



End 



[02 2] 

Dim En As rdoEnvi ronment 

Dim Cn As rdoComect ion. 

Dim PsR As rdoPreparedStatement 

Dim RsR As rdoResultset 

Set En = rdoEnvi ronment s(0) 

Set Cn = En.OpenConnection( n, \ rdDriverNoPrompt, True, Connectlnfo) 
Set PsR = Cn.CreatePreparedStateroent ( m \ _ 

" SELECT * FROM RU1SEK1_SH0MAS ") 
Set RsR = PsR. OpenResul tset (rdOpenForwardOnly, rdConcur Readonly) 



RsR. MoveNext ' #0)fTKf£« 

RsR. Close 
PsR. Close 
Cn. Close 
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[010] 

Dim En As rdoEnvi ronment 
Dinj Cn As rdoComect ion, 
Dim PsR As rdoPreparedStaiement 

Oim PsS As rdoPreparedStatement ' "7 X $ - 7 T Y JKDfB&£ 
Dim RsR As rdoResultset 

Dim RsS As rdoResultset ' ^? X ? — 7 t IJisOffl&ft 

Set En = rdoEnvi ronment s(0) 

Set Cn = En.OpenConnection("", rdDr iverNoProrupt, True, Connect Info) 
Set PsR = Cn.CreatePreparedStatement("", 

w SELECT RUMP, S-1D. DATA FROM RUISEKI WHERE RUMP = ? ") 
Set RsR = PsR.OpenResul tset (rdOpenForwardOnly, rdConcurReadOnl y) 

' Z Z ti* 6 

Set PsS = Cn.CreatePreparedStateroentO"', 

" SELECT SHO I D, TANKA FROM SHOHAS WHERE SHOID = ? ") 
Set RsS m PsS. OpenResul tset (rdOpenForwardOnly, rdConcurReadOnl y) 

PsR. rdoParametersd) = ' ^gS^ 1 ^AJSS^faSt'S 
RsR. Requery 

PsS. rdoParametersd) = RsR("S-IP") 
RsS. Requery 

RsR. Close 

RsS. Close '7^^-7 ? < 

PsR. Close 

PsS.CIose '77*-:7 -f^nffi&ft 

Cn. Close 
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[Hill 



Start 



S 4 0 0 



raffle.* ■frfcJRflf - - 7Jl/#' 
RUB S Q L jt fc ftttr - 7 * JE*r 



-S42 0 



End 



c 
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[mi 4] - 



Dim En As rdoEnvi ronroent 

Dim Cn As rdoConnect ion. 

Dim PsR As rdoPreparedStatefnent 

Dim PsS As rdoPreparedStaternent 

Dim RsR As rdoResultset 

Set En = rdoEnvi ronraentsCo) 

Set Cn- = En.OpenConnectionC", rdDri verNoPrompt, True. Connectlnfo) 
Set PsR = Cn.CreatePreparedStatement( ,M \ 

" SELECT RUMP, S-1D, UR 1 AGE FROM RUISEKI ") 
Set RsR = PsR.OpenResultset(rdOpenForwardOnlY, rdConcurReadOnly) 

' Z Z ft 6 

Set PsS = Cn.CreatePreparedStatement("'\ 

" UPDATE SHUUKE1 SET GOUKEI=GOUKEI+? WHERE SH01D = 7 ") 

PsS. rdoParameters(l) = RsR("UR[AGE") 
PsS. rdoParameters(2) = RsR(" S-lD ") 
PsS. Execute 

RsR.MoveNext ' sXCDfilZ&Z 

RsR. Close 
PsR. Close 
PsS. Close 
Cn. CI ose 
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c 



Start 
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C 



Start 
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S700 
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c 



End 



